#!/usr/bin/perl

$file = '/etc/dat/multipath.dat';

for $opt (@ARGV) {
    exit if ($opt eq "-v0");
    if ($opt eq "-v1") {
        open FILE, $file or die "No file\n";
        while (<FILE>) {
            if (/^mpath/) {
                s/ .*//; print;
            }
        }
        close FILE;
        exit;
    }
}

open FILE, $file or die "No file\n";
print <FILE>;
close FILE;

